home *** CD-ROM | disk | FTP | other *** search
/ DIM Series: Yumi Fukawa / DIM Series: Yumi Fukawa.iso / pc / data / photo_l.dxr / 00005_album script.ls < prev    next >
Encoding:
Text File  |  1998-06-10  |  1.4 KB  |  65 lines
  1. global kdefaultphotoorder, galbummode, gcurphotoorder, galbumphotoorder, gcurphotonum, gsavedphotomodephotonum, gcurmovienum
  2.  
  3. on prevalbumphotoclickreaction
  4.   playclicksnd()
  5.   decphotonum()
  6. end
  7.  
  8. on nextalbumphotoclickreaction
  9.   playclicksnd()
  10.   incphotonum()
  11. end
  12.  
  13. on photomodeclickreaction
  14.   playclicksnd()
  15.   donealbummode()
  16.   setautoslidestate(0)
  17.   set galbummode to 0
  18.   set gcurphotoorder to kdefaultphotoorder
  19.   set gcurphotonum to gsavedphotomodephotonum
  20.   go("photo")
  21.   updatephotoview()
  22. end
  23.  
  24. on donealbummode
  25.   set gsavedalbummodephotonum to gcurphotonum
  26.   set galbumphotoorder to gcurphotoorder
  27. end
  28.  
  29. on goalbumeditorclickreaction
  30.   playclicksnd()
  31.   busycurs()
  32.   setautoslidestate(0)
  33.   go("albumEditor")
  34.   updatephotoview()
  35.   updatealbumeditorthumbnail()
  36.   unLoad()
  37.   resetcurs()
  38. end
  39.  
  40. on movielinkfromalbumclicked
  41.   set amovielinknum to getmovielinknum(getAt(gcurphotoorder, gcurphotonum))
  42.   if amovielinknum > 0 then
  43.     donealbummode()
  44.     setautoslidestate(0)
  45.     set galbummode to 0
  46.     set gcurphotoorder to kdefaultphotoorder
  47.     set gcurphotonum to gsavedphotomodephotonum
  48.     stopsnd(#bgm)
  49.     go("movie")
  50.     unLoad()
  51.     set gcurmovienum to amovielinknum
  52.     updatemovieview()
  53.   end if
  54. end
  55.  
  56. on gomenufromalbum
  57.   donealbummode()
  58.   setautoslidestate(0)
  59.   set galbummode to 0
  60.   set gcurphotoorder to kdefaultphotoorder
  61.   set gcurphotonum to gsavedphotomodephotonum
  62.   go("mainmenu")
  63.   unLoad()
  64. end
  65.